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IQ. SCR 


{ WORM GAME CONSTANTS 
( MOVE COUNT DOWN TIMERS ) 

39 ( INTERRUPT ROUTINES UPDHS) 
35 ( PMXTAB SETVOL ) 
75 € INTERRUPT ROUTINES RPOTS ) 

( WORM PRIMITIVES CONT ) 

{ WORM PRIMITIVES CNT WAITTAB ) 

{ WORM TABLE BUILDERS ) 
HERE Ø £, OC, @@ C, ØC, BC, BC, 
21 ( ANONB CRe24 ) 
23 ( CDEST CCANDM VBISMASK VBIMASKTAB ) 
20 { WRIP ) 
27 ( ?SPEED ?SPEED2 oben ) 
29 { UPDERLOC 
3i { WORM BUILDERS CWDRM BORN ) 
33 ( UPDSTATUS ) 
35 ( WORM INITIALIZATION ) 
37 ¡5 ( DISPLAY LIST BUILDER ) HEX 
39 ` ( CHSET BUILDING TVEC DEFS ) 
Al ( CHSET BUILD WDISPLAY ) 
Ai ( SOUND BSND MSND PWORM ) 
ISPALE ICR MOVEOK DETRACT TIMEOUT > 


49 ` (í ADDONE ) 
Si ( LEGAL CHKMOVES 

53 ( PEEKMAP HOME? SAMEDIR? ) 

55 ( DOA! ) 

57 o: Be TNEWMOVE DUP 7 !CRIX CLRKBD 

59 ( GETMOVE 

61 ( UPDCNODE INSTALLVBI INSTALLHBI INITMEM 
63 (GAME ENDGAME CSOUND 

65 ( PSCDRE SCORE? 

67 ( INMOFE BANDOMIZE INCTALL ) 

69 ( INTROGAME ) 

71 (SEL ILINE DELINE  ) 

73 í APPLY OPTIONC ) 

75 í WOPTION WSELECT NOP SHOWALL PROMPT HI LD ) 
77 ( KEYPOT GKEYPOT X! Y! XY! ) 

79 ( DOS EMULATION F#PTR PTRF# ) 

81 ( DOS EMULATION WRITEF ) 

83 ;5 ( COMMANDS ) 

85 { MAIN LOOP ) 

87 ( FIXINTRPTS DORTI ) 

89 ( CEA WORM CHAR MAPS TEMPLATES ) HEX 

391 \ EXPAND 

93 \ 28% 

35 


97 \ SAVE-SYSTEM 

99 { W. AS. CART ) 

101 \ WORM 1/0 

183 { CODE FOR JOY STICKS ) 

195 ( JSKEYS ) 

107 í ð CODE ) ( BASE ë ) HEX 
189 ` M 

Ið Go DOIRG 

113 A MT 

115 \ MT 


117 Y MT 
119 { INTERRUPT TESTING CONT ) í BASE Ë ) HEX 


Dated 4/26/1987 


\ WORMS? COPYRIGHT (C) es BY DAVID S. MAYNARD 


( 
47 35 : =DR ROT ÒR R = SWAP R) = DR ; 35 ( CASES 


) 


) 


003/01 /803/82/87 


Printed 





4/26/1987 P= IEA SO GER 


2 { WORM GAME START ) HEX 
4 { WORM GAME CONSTANTS CONT. ATARI HDW ) 
& (WP VBI TABLES AND CONTS ) 
B ;S  { INTERRUPT ROUTINES SETVOL ) 
12:5 ( INTERRUPT DAMPPOT ) 
12 ` ( WORM PRIMITIVES .XPOS ETC ) 
14 ( #BITS WAIT ) 
16 ( WORM PRIMITIVES CONT ) 
18 { ZERO PAGE DEFS ) 
20 FF C, FF É, 80 C, FF E, FF C, QQ U, 
op { kret CRMAP ROUTINES ) 
24 ( INTRPT CODE CHAR ANIMATION ) 
26 ( INTERRUPT ROUTINES VBI 
24 ( TRIG AND FRED TABLES CRMAP „ BKADR MOVES ) 
30 ( UPDMAP UPDMY ZRMAP ZMAR ) 
32 ( KILLW) HEX 97 97 THRU 
34 ( UPDLOC UPDCDL — TRIBCLR ) 
36 C64SCR 14 28 x + (-) SCRMEM 
38 ( WDL SETHSCRL CHARACTER SET DEF. ) 


49 { CHSET BUILDING ) 

42 { EX] [Y] SCALE ) 

44 { [MOVE] DECTMD GXINC XY! X! Y! * ) 
46 { SETTIME NXTMOVE CLRKBD ) 

48 { FIXLO FIXLI ) 

SØ ( KEYPOT GKEYPOT X! Y! XY! ) 

de (PUTU ) HEX 

J4 { EVAL ) 


J6 ( DOS EMULATION ) 


oO { HILITE DELITE ) 

6@ 1 INCHMOVES NXTMOVE UPDXPOS ) 
BEK MAKEMOVE ) 

64 ( DUMMY SCRLON SCRLOFF FIXDUMMY ) 
65 ( PLAYGAME DELAY INITSTAT ) 


68 ( WORM 1/0 ) 
70 (SUMO INITIALIZATION ) 

72 ( COMMAND SHELL SUPPORT HRI? FXHBI ) HEX 
74 ( COMMAND SHELL WORM OUTPUT ) 

76 ( ‘DOS EMULATION 2 ) 

78 ( DDS EMULATION 4 ) 

80 :5 ( DOS EMULATION ) 

82 ( WREWDL BMPWDL NWORM FINCMD DOREAD ) 

84 { COMMANDS: DOWRITE SNAME DOSGVE ? CMD ) 
86 X INSTALLEM FIXINTRPT 

88 ( RESET ) 40 VARIABLE DORTI 

90 x SOFT-CHARS 

32 \ TRY SOFT CHARS 

3⁄4 

36, 

98 HEX ( ID.SMASH SMASHEM MAKEBODT ) 

100 \ WORM 1/0 

102 ( XEMIT ) 

104 { CODE FOR JOY STICKS ) 

106 ( HEARLD ) 

108 \ TESTSAVE 

110 \ MT 

112 

114 \ MT 

116 \ MT 

118 ( INTERRUPT TESTING CODE ) ( BASE E ) HEY 
120 ( LOAD SCREEN ) Y FORTH 1 DISP ! Ø DISP 2+ C! DISPLAY 


03/01/87 


03/21/87 


03/01/87 


IQ. SCR 


121 \ CONT ee 
123 \ CONT... 
125 \ MT 


139 { CHSET BUILDING ) HEX 

141 \ ASSY XFORM 

183 Y Y SPICK SCORE { C64 PAYOFF STUFF ) 

145 ( SPRITE STUFF ) ( BASE 6 ) HEX 4 CONSTANT #SP 
147 Y YXSPRITE 

149 ( TEST SOUND ROUTINES ) ( BASE @ ) HEX 

131 ( TKILLW FSOUND ) Ø VAR SCH 

153 A WORMS? COPYRIGHT (C) 1983 BY DAVID S, MAYNARD 
139 XX XX 

157 \ MT 

159 \ MT 


AND Ø= IF CR." XX P " THEN 


Dated 4/26/1987 


Printed 4/26/1987 


04/26/87 


02/27/86 


04/26/87 





tcl = 169 10, OCR 


= : e SCREEN ) AS.CART LOCATE-ON FORTH 1 DISP ! DISPLAY 
126 \ MT 

128 Y MT 

130 A MT 

132 \ MT 

134 \ MT 

136 \ MT 

138 ( TMASK ) HEX 

140 Y C64 'VAL SUPPORT 

142 í SCREEN TO SPRITE ) í BASE ë ) HEX 

144 Y MT 

146 ( SCREEN TO SPRITE ) ( BASE E ) HEX 

149 Y MY 

150 X SOUND INTERFACE 

En Cu a COPYRIGHT (C) 1983 BY DAVID 5. MAYNARD 


158 X X 
158 X MT 

160 HERE QQ E 
162 @C, 00 Ë, 
164 18 C, QQ Ë, 
186 OC, OC, 
168 18 E, 18 Ë, 


— 


03/02/87 


00 C, 00 E, 


| 


Ë 
E 
£ 
C 


a 





IQ. SCR Dated 4/26/1987 


SCREEN # 1 


\ WORMS? COPYRIGHT (D) 1983 BY DAVID S. MAYNARD 

( MASTER OCT. 9, 1983. COMMODORE 64 FINAL ) HEX 
COG CONSTANT HIMEM HIMEM 1000 - CONSTANT AFMAREA 

@ VARIABLE FNCUR @ VARIABLE CHCUR 


CODE (OCH) 
C6 LDA, Ø= NOT IF, 277 LDA, THEN, PUSHOA JMP, END-CODE 
HERE 0 C, 8C, 4C, 2C, 1 C, Ø Ü, Ba - CONSTANT Cvas- 


: PCH BEGIN (OCH 
DUP IF DUP 84 MAX 89 MIN CV84- + CB 
-DUP IF FNCUR ! ELSE DUP CHCUR ! THEN 
FLKBD THEN 

DROP (JCH) We UNTIL CHCUR Sr 

: KEY BEGIN CHCUR @ @= WHILE ?CH DROP REPEAT 
CHCUR @ Ø CHCUR ! ; 

: =KEY SWAP OVER = IF KEY = ELSE DROP @ THEN ; 


: TERMINAL ËH DROP FNCUR @ Ø FNCUR ! DUP 8 = IF QUIT THEN 3 


SCREEN # 3 


{ WORM GAME CONSTANTS ) 

A (-) MAX#W #H 1 - (-) 4H-1 

#V 1 - (-) #V-1 FF (-> UNDFMDVE 

#DH i - (-} #DH-1 

SIN 1 - (> #DV-1 

Fi (GA GETNEWS Fe (-> DOAI# Fs (> DIER 


b (-> NOMOVE 

3 VAR DEN { DENSITY ) 

D VAR #WORMS 

A VAR WORMY 1 VAR GPR 

C VAR MXLUM 07 VAR STO 

i (5 PWDTH 

à VAR HCSHI 

ü VAR LOCK í INTERLOCK FOR FORTH VBI ! IN UPDMAP ) 
{ LOCKED IN UPDMAP CHECKED IN CDESTe ) 


SCREEN # 5 


( MOVE COUNT DOWN TIMERS ) 
V Dagi (-) AUDE D200 (-) AUDF 
\ D2ØÐ (-) AUDCTL í VAR VBION 
\ HERE X 
V Ø ð 
V (>) RÓT (FRED. TABLE ) 
HERE 

0,0,0,0, 
A EDT ` ( COUNT DOWN TIMERS ) 
CODE en ( DECREMENT CDT ) 


Cor X EMP, Q= NOT 
EDT ,X DEC, THEN, 
e, END—CODE 


SCREEN # 7 


;5 ( INTERRUPT ROUTINES UPDHS) 
Ø VAR HPSHAD 4 ALLOT 
CODE UPDHS í UPD HAZ POS ) 
HPSHAD LDA, DOCO STA, 
HPSHAD 1 + LDA, DQ01 STA, 
HPSHAD 2 + LDA, DØØ2 STA, 
LEE DAZ STA, 


RTS, END-CDDE 
ba CABLE (BUILDS 'CSP 3 HERE ) 
í DOES) 2+ ; j 
bo , ENDIPO TERE OVER - 2 - SWAP | ) 
( 3 PAIRS CSP ; ) 
( ; TARR 2-8: ) 
( : WTABLE (BUILDS 'CSP 3 HERE ) 
C 0, DUES) ct; ) 


Printed 


3S 


4/26/1987 ' e G 10. SCR 
SCREEN + £ 
( WDRM GAME START ) HEX 
\ sta CONSTANT y : ( UC; 
\ ae VARIABLE ; 
14 (-) #4 16 (-) WV 12 (-) #DH 12 (> #DV 1 (9 HØ 1 (-) VO 
#DH 2 / (> STX 
#DV 2 / (-} STY 
Ü (> Wà Q (—, 24 
@ VAR OFLE 


: STOP ?TERMINAL OFLG ë DR 
DUP BFLG ! ; 


: CONT STOP Ø= ; 
400 (-) C64SCR 


SCREEN + 4 


( WORM GAME CONSTANTS CONT. ATARI HDW ) 
( FIRST 1 + 800 / 800 + 900 - ) 
( 02E5 ë CIE - ) APMOREA X DUP (-) PMA 
200 - DUP (-) WCHSET ( FITS! ) 
BH šV * - (-) WDATA 
( DAOR (-) WSYNC ) EA (-) MAXPOT 
V @22F (-) DMACTL Däin (-) BRACTL 
D427 (-) PMBASE 
208 (-) COLBK 204 (-) COLPFO 
205 (-) COLPF1 205 (-) COLPF2 
207 (-) COLPF3 SCH (-) COLPMO 
201 GA COLPMi 202 (-) COLPME 
203 (A COLPM3 26F (-) GPRIOR 
D300 (-) PORTA 0270 (-) POTO 
Dë (-) NMIEN ;S 


O O AAA A wem 


SCREEN # 6 
( MAP VBI TABLES AND CONTS ) 
\ HERE IW 
SE ; 7 
V (=) EDT 4 MOVE CDTIMERS ) 
HERE 
0,0,0,0, 
LA MAPCDT (MAP ED TIMER ) 
HERE 
0.0,0,0 
AT MAPMOVE' í MOVE ARRY ) 
CODE DECMAP ( DECREMENT CDT ) 
0 # LDA, 
wä „X CMP, Ge NOT 
MAPCDT „X DEC, THEN, 
w, pu 


3 


SCREEN + 8 


os { INTERRUPT ROUTINES SETVOL ) 

DC A7 C, ABC, ABC, ASC, ASC, ASC, ML, 
Dé C, A3 C, Ae Ë Ri C, ABC, ñQ C, ABC, ABC, 
ABC, A? E, ABE, BE ASE, A4 C, AS EC, AC, 
Bá C, Dä Ü Ae C, Al Ë Dä E AB Ë, ABC, ABC, 
AB E, ABC, DIE ABC, ASC, AF D; ASC, Dt 
Re E, ALT, ABC, ABC, ABC, AB Ë RØ E, BQ C, 
AG C, ABE, ABC, A4 C, A3 C, A2 C, Ai C, RQ C, 
ABE, ABC, AWC, ABC, ABC, AAC, FAC, ABC, 
(> ENV 

S 





10). SCR Dated 4/26/1987 


SCREEN # 9 


:5 ( PMXTAB SETVOL ) 
"CODE SETVOL ( SETVOLUME ) 
CDT X LDA, @= IF, Q $ UDR, 
UDC’ ,X STA, FROT A ST 
ELSE, STO LDA, SEC, 
EDT ,X SBC, F $ AND, FS STA, TXA, 
¿A ASL, .A ASL, .A ASL, CLC, FB ADC, CLC, 
TAY, ENV ,Y LDA, 
( F # AND, Að 4 ORA, ) 
PUDE A STA, R 
( FROT „X LDA, AUDF ,X STA, ) 
( Q # LOA, AUDCTL STA, ) 
THEN, CLC, RTS Gage 
CTABLE PMXTAB 30 É, 64 C, i: E, B C, 
ENDTAB 


+ 


SCREEN # 11 


INTERRUPT ROUTINES RPOTS ) 
AR WPOT 2 ALLOT @ VAR PSCAN 
DE RPOT ( READ POT 
DAMPPOT JSA, ` 

# LDA, SEC, CPOT „X SBC, ) 
LSR, -A LSR ) 
74 EN 6 # CMP, wer ) 
S # LDA, THEN, 
DT ,X STA, Dt RTS, END-CODE ) 
CODE RPOTS ( READ POTS ) 
PSCAN LDA, Ge NOT IF, 
ü # LDX BEGIN, 
DAMEPOT J 

o EE 

UNTIL, CLE, h RTS, END-CODE 

;§ 


3S 
E 


— — — — — tee 
Ex bR gS- 


SCREEN # 13 
{ WORM PRIMITIVES CONT } 


CODE .HPOS "ET JSR, 08 # LDY, * .YPOS 5 + JMP, END-CODE 
: {HBOS ( WORM HPOS ) 

SWAP 8 +£! 
CODE .veos  ' SETA JSR, 09 4 LDY, * .YPOS 5 + JMP, END-CODE 
: 'VPDS SWAP 9 +£! 

CODE .CRIX + JMP, END-CODE 


' SET 388 DA $ LDY, * .YPOS 3 
: ICRIX SWAP A +C! 

: TÐ 40+ Ë 3 

: (IM SWAP AC + | ; 


SCREEN # 15 


WORM PRIMITIVES CNT WALTTAÐ ) 
(STATUS SWAP 6 + C! 
(WORM SWAP 7 + Clos 

(MOVE € WORM N MOVE ) 
SWAP ROT B + + C! ; 

„VAL .LOC CB ; 

(VAL ( W VAL ) 2DUP SWAP .LDC C! 64'VAL ; 
í. VALI „VAL 3F AND ; X MASK OFF COLOR 


se WE sp oe, 


se "Ff Re 


(> CWAITTAB (BUILDS ) 
BE EH ERC 
( ab 26 DOES); ) 
( cunt TTAB WAITTAB ) 


LE 





Printed 





4/26/1987 oo (Ae lee 


SCREEN # ið 


:5 ( INTERRUPT DAMPROT ) 
Ø VAR CPOT 4 ALLOT 
CODE DAMPPOT ( DAMP POT ) 
CPOT „X LDA, SEC, 
POTO „X EMP, 
ES IF, SEC, POTO ,X SBC, 
„A LSR, .A LSR, SEC, 
FF # EDR, CLC, CPOT ,X ADC, 
CPOT ,X STA, ELSE, 
FOTO ,X LDA, SEC, 
CPOT „X SBC, .A LSR, .A LSR, .A LSR, 
CLE, CPOT ,X ADC, 
CPOT ,X STA, 
THEN, 
Di RTS, END-CODE 


; 


SCREEN # 12 


( WORM PRIMITIVES .XPOS ETC ) 

CODE .XPOS ` Ce JMP, END-CODE 

CODE SETI í # LDA, SETUP JSR, RTS, END-CODE 

CODE .YPOS * SETI JSR, 01 $ LDY, N )Y LDA, PUSHØA JMP, END-CODE 
CODE N)YA N )Y LDA, PHA, INY, NY LDA, PUSH JMP, END-CODE 
CODE .LOC — ' SETI JSR, 02 k LDY, * N)YG JMP, END-CODE 

CODE „#MOVES ' SETI JSR, 04 4 LDY, * N)Y@ JN, END-CDDE 

CODE .STATUS * SETI JSR, 06 š LDY, * .YPOS 5 + JWP, END-CODE 


le 


CODE .WRM# * SETI JSR, 07 # LDY, * .YPOS 5 + JMP, END-CODE 
CODE „MOVE ØB 4 LDA, ` A0+ JSR ðr LDA, BOT í+ LDY, INX, INX, 
1 AY+ JSR, t CO JMP, END-CODE 


CODE +C! BOT LDA, INX, INX, * A@+ JSR, * C! JMP, END-CODE 
(XPOS ( WORM XPOS ) SWAP Ci; 

'YPÐS SWAP i+ C! ; 

(LOC SWAP 2+! ; 


(MOVES SWAP 4 + ! ; :S 


SCREEN # 14 


{ #BITS WAIT 
\ 3 ENDIF ECCDMPILE] THEN ; 
: #BITS € BYTE - #BITS ) 
Ø OVER 1 AND IF i+ ENDIF 
OVER 2 AND IF 1+ ENDIF 
DVER 4 AND IF 1+ ENDIF 
DVER 8 AND IF i+ ENDIF 
OVER 10 AND IF 1+ ENDIF 
OVER eà AND IF 1+ ENDIF SWAP 
DROP ; 
N s WAIT ( TICKS -) JIPFYS 3 
\ DECIMAL 89 92 HEX di DECIMAL 138 140 HEX THRU 
VQ 220 ! FF GE b! 1 MAX 
y 
\ 


) 
IMMEDIATE 


220 ! BEGIN 22E Cë Ø= UNTIL 
¡S 


SCREEN # 16 


{ WORM PRIMITIVES CONT ) 
: „KIND 4B + Cê; 

: 'KIND SWAP 4B + C! ; 
s SCORE áC + @ ; 

: ‘SCORE SWAP 4E + í 3 


„ NAME AE + ; 
V : 2# DUP +; EAFORTH op IS FASTER 
: 3% DUP 24 + : 
: 4% 2k 2% | 
: Bt 4% 24 : 28% DUP 4* + Bt ; ) 


D3 (-) ët ie D6 (A ROWCRS 

X! COLERS C! ; : XP COLCRS @ ; 

Y! DUP ROWCRS C! 28% CEASER + "Dirr YB ROWERS C@ ; 
mi YU XU 0 27 1 Ø XY! 

Ë 0 14 WY! í 286 Ct ( WHITE ) 235 

H 


IQ. SER 


Dated 4/26/1987 


SCREEN # 17 
( WORM TABLE BUILDERS ) 
RE 


FLO ROSE Oto fb 2c 
(GA NMOVE 
HERE 
1,0,1,-1,-1,0, 
(-) XÍNCE 
HERE 
1, fp Q els 1, 
(GA XINCO 
HERE 


Sy oe 
SS 


SCREEN # 19 


HERE or, OC, OC, OC, OC, Q U, 
QC, OC, ØC, 3C, Coc, @ C, 
30, COC, C, Of, OC, @ C, 
oC aart oc of ØL 
ØC, OC, WC, OC, OC, we, 
FC, FOC, 00 C, FC, FOC, 00€, 
FC, FOC, @C, FC, FOC, ØC, 
GE OC E of ot wc 
ØC, @C, @ C, 3F C, FCC, @Q C, 

FE FC Ú, @ Ü FC, FOC, @Q U. 
°C. FOC, 000, FC FOC, BOL 
SFC, FOC, oC OC, OC, OC, 
FF Ë FEC, @@C, FEC, FEC, Ør, 
FF Ë, FF C, L FF C, FF C, @ É 
FFE, FFE, 00, FEE, FEC. @ C, 
FFE FFE 00C FRC, FF Ü ØL 


SCREEN # 21 
( ANONB CR#*24 ) 


Ø VAR ANDONE ( ANIMATION ON ) 
: ANON í ANONB ! ; 
HERE CAMAP QQ +, CRMAP 18+, CRMAD 30+, 
CRMOP 48 +, ERMAR 60+, CRMAP 78+, 
CRMAP 90 +, CRMAP AB +, 
(GA CR#24 


SCREEN # 23 


( CDEST CCANDM VBISMASK VBIMASKTAB ) 
MAPMASK VAR MMADDR Y VAR VBISMASK 1 VAR VBIMAPMASK 
HERE ( PAIRS: MASKVAL , STOVAL ) 

OC, Stat, OC, OC, OC, 

OC, 8C, OC, OC, OC, 106 

1C, 100, 3C, CC, 76, 100, FC, 10C, (=) VBIMASKT 
CODE CDEST? 

SPMEM „X LDA, ZT STA, 

SPMEM i+ ,X LDA, ZT i+ STA, 

RTS, END-CODE 
CODE CANDM ( AND MASK ADDR ) 

8 # LDA, SEC, MAPCDT ,X SBC, 

A ASL, TAY, 

Wun Y LDA, 2M STA, INY 

ec Y LDA, ZM i+ STA, INY, 

CLC, RTS, END-CDDE ;S 





Printed 4/26/1987 17 = 24 IQ. SCR 


SCREEN # 18 


SCREEN # 24 


FF E, FF C, 00 C, FF C, FF E, 99 
FF C, FF C, 00.0, FOC, F E, 
99 £, FF C, FF Ë, Ø 
00 E, FF E, FF C, Q 
00 C, FF C, FF C, Q 
00 C, FOC, FE, 0 


+ 
CH 
Le) 
Los 
Wan, 
LE) 


EH 
& 
CH 
KI Ri 
“ry 
05 ae www H in NT A 
La eB ae C CC E a Ci A se Lte Cay Kar, 


M 


“TI 
"TI 
a 
Y 
`a M K KI ` `. Kid Ka 2 ` = 
Se acas s 
£ 2 
les 
Se 
cacy 
m «A 
IR, A | 
TITI 
EE 
SS 
CIFINICICICACICA 
m ` ua ‘a A zë E a 


zi s a zë 8 A A 


NO AOI CIC ICICI eI 


Ë 
00 C, (-) MAPMASK 


SCREEN $ 22 
{ INTERRUPT CRMAP ROUTINES ) 


CRMAR VAR CRMADDR 
CODE CSOURCE { FIND ZF ADDR ) 


¿A ASL, TAY, 

CR*24 Y LDA, ZF STA, INY, 

CRE24 Y LDA, ZF i+ STA, INY, 

RTS, END-CODE 

: GCMD WCHSET 3 + @ IF Ø WCHSET 3 + C! ELSE 

8 WCHSET 3 + C! THEN ; 
HERE MAPMASK 00 +, MOPMASK 19 +, MOPMASK 30 +, 
MAPMASK 48 + „ MAPMASK 60 + , MAPMASK 78 +. 

MAPMASK 90 +, MAPMASK AB +, (-) MMa24 +S 


SCREEN # 24 


( INTRET CODE CHAR ANIMATION ) 
CRMAP 7 B * + (-) SROBASE 14 (-) CLKLO 
WCHSET 3F 8 z + (-) DESTBAS 
: ANOFF Ø ANDNB ! ; ;S 8 @ DO 
SRCBASE I + CR DESTBAS I + 
C! LOOP ; 
;S CODE ANIM 
ANONB LDA, @= NOT IF, CLKLO LDA, 3 # AND, Ge IF, 
CLKLO LDA, 1C 4 AND, 
¿A ASL, TAY 
7 4 LDX, BEGIN, 
SRCBASE ,X LDA, 
MAPMASK |Y AND, DESTBAS „X 
STA, DEX, INY, FF # EPY, 
Q= UNTIL, THEN, 
THEN, CLC, RTS, END-CODE $5 





IQ. SER Dated 4/26/1387 Printed 


SCREEN # 25 


( WRTP ) 
CODE WRTP ( WRITE PLAYERS ) LOCK LDA, Ø= IF, 
17 # LDY, BEGIN 
ZF )Y LDA, ZM )Y AND, 
IT )Y STA, 
DEY, FF # 
UNTIL, TEN hD RTS, END-CODE ;S 


SCREEN # 27 


{ 7SPEED ?SPEEDE CNFRM ) 
: RANGE i+ }R OVER R? (R 1- > R? AND; 
: ACMD ANDNB @ IF ANOFF ELSE ANON THEN ; 


: (ISPEED2) 
KEY 39 SWAP - 2% VBIMASKT + DUP C@ DUP 
1 MAX VBIMAPMASK C! 1+ Cë STO : ; 


VBISMASK E! 


: SPEED 
FEH -DUP IF 
30 39 RANGE 
IF (2SPEED2) THEN THEN ; 
: PROMPT2 P" CB4SCR 14 pn + 28 20 FILL ; 
: CNFRM KEY D = DUP IF ELSE PROMPT? THEN : ; + 


SCREEN # 29 


( UPDCRLOC ) 

: UPDCRLOC { WORM ) 
DUP . XPOS Br 4 + 
OVER 


.YPOS 1 AND IF 4 + ENDIF 
CDU 'HPDS 


i WH HPSHAD + C! ) DROP 
re . YPOS 8# 2E + 'VROS ; 


s 
5 


SCREEN # 31 


( WORM BUILDERS Da GWORM ) 
HERE Ø, Ø, (-} WORMS 
: GHORM ( N E hora! ) DUP + WORMS + ë ; 
: INITWORM { ADDR --) ) 
YR R #WORMS @ DUP + WORMS +! 
R STX 'XPOS R STY 'YPOS RO ‘LOC R Q “#MOVES 
R 1 ¿STATUS R #WORMS @ 'WORM# R @ 'HPOS R Q 'VPOS R 6 'CRIX 
R 40 @ DO DUP I GETNEWH 'MOVE LOOP DROP 
R @ 'KIND R Q ‘SCORE R> J NAME R 
53 RC! 41 R i+ Ci AD RƏ+ C! 45 R 3 + Ü! 
R 8 4 DD DUP I + 20 SWAP C! LOOP DROP 
R) DROP 1 #WORMS +! ; 


4/26/1987 





eo = Ge ID. ER 


SCREEN # 26 
( INTERRUPT ROUTINES VBI ) 


CODE VBI ( VERTICAL BLANK ) 


( CLKLO LDA, VBISMASK AND, a= IF, 


{ i 
{ ? 


VBIMAPMASK AND, a= 
Ø š LDX, 
MAPCDT 
1 CSOURCE JSR, 
` CANDM JSR 


ANIM JSR, ) 
RPOTS JSR, ) CLKLO LDA, 


IF, 


X LDA, Ne NOT IF, 
t CDEST2 JSR, 
` WRTP JSR, 


1 DECMAP JSR, THEN, 
Y DECCDT JSR, INX, INX, 


a # CPX, a= 
THEN, 
RTS, 


( 
HE 


UNTIL, 
' YPDHS JSR, ) CLC, 
END-CODE € ge VBI RETURN) 


SCREEN # 28 
a AND FRED TABLES CRMAR .GWADR MOVES ) 


@4C, 08 C, 40 C, 80 C, 


\ 


(=+ TRIGMASK 

START \ @ 4 Ø DO I TRIGMASK + 
LR PORTA Cü AND We OR LOOP 
TERMINAL 7 AND (OR); 

CLEAR BEGIN ISTART Ø= UNTIL 


: MOVE18 ( FROM TD ) 


ae 


r ZMAP ( W) 


18 CMOVE ; 


SCREEN # 3 


{ UPDMAP LEON ZRMAP ZMAP ) 
ZRMAP ( S*W# -) ) 
Ø OVER MAPCDT + ! 
SPMEM + @ 18 @ FILL 


DROP 2*W# ZRMAP ; 
UPDMAR € W) Zap ZRMAP 

DUP .VPOS SWAP .HPOS 2+ Wit 
YXSPRITE 7 MECHT Sab + ! 
STO C@ COT aa +! ; 


: UPDMV { W) 
Mai 


— 


ë 

i DUP MAPCDT + 4 SWAP ! ) 
MAPMOVE + 

SWAP .CRIX SWAP ! ; 35 


SCREEN # 32 


{ KILLW ) HEX 97 97 THRU 
: KILLW ¢ SE -> ) DROP TKILLW ; 
(ð VBION ! A 'CRIX 
XSND À um COLPF@ + 
FF Gë DO A Y DO NODP LODP 
128 I - 19 / OVER Cë FØ AND OR 
OVER E! 
I 1 5% - à MAX DO 
S F FFFF I y( - ROVR SOUND 8 +LODP 
STOR IF LEAVE ENDIF 
8 +LDOP 
S OVER Cü FA AND OR SWAP C! 
XSND { 1 VBION ! ) ; 


sg 








? VBISND JSR, THEN, 


) 


IQ. SCR 





Dated 4/26/1987 Printed 


SCREEN # 33 


( UPDSTATUS ) 
: UPDSTATUS ( WORM ) 
DUP . STATUS 

IF DUP í. VALI 3F = 

IF DUP KILLW Ø ‘STATUS 
ELSE 1 ‘STATUS ENDIF 
ELSE DROP ENDIF ; 


w 


SCREEN # 35 


{ WORM INITIALIZATION ) 

: INITPOS ( WORM ) 
DUP STX 'XPOS DUP STY 'YPOS 
DUP NOMOVE 'CRIX DUP UPDLOC 
DUP UPDERLOG ( DUP (DIN ) 
( DUP UPDMAP } 
DUP 258 'TMD UPDSTATUS ; 

: INITMOVES { WORM ) 

40 Ø DO 


DUP I GETNEWH ‘MOVE LOOP 

DUP 3E Ø 'MOVE ( FORCED ) 

DUP 3D 1 ' MOVE 

DUP 3B 2 'MOVE 

DUP 37 3 ‘MOVE 

DUP 2F 4 "NN DUP SF DIER 'MDVE 
JF S MOVE = 35 


SCREEN # 37 


:S ( DISPLAY LIST BUILDER ) HEX 
70 ALLOT 14 , HERE HERE 70 C, 70 C, 
46 Ü, WDATA 
46 Ë, 
86 £, 
46 E, 
46 C, 
46 E, 
46 Ü, 
46 €, 
46 Ë, 
46 C, WDATA 1 
M 50 +, OC, 
C, 46 Ü, SCRME 


P 
= 
x= 
* 


ue ae ae He c 


e 


E = 
E 
a > e e 


WDATA 
WDATA 
WDATA 
WDATA 
WORTR 
WDATA 


= = bf 


Sp "kb sp E EE ETE 


++ + + + + + + + + 
zf zéi o zi oi s ` 8 zë 


+ + + + + + + + + + 
Š 
pened 
> 
ði 


be aes zb oba sko -— — — =< 
a” "bh E E E EE 
4 zë së bi ee a £ vi 
Š 
ed 
Kei 
End ee TM ES OD GD dl LN Caer 
LL SEE —— br TELE 


Se EE dth 3E AE 34k te $E 


a å = -2 

£ bet pen 

en ho MIDI M: Tue 
Sites Se Sp SE sp Sp: 
x 2 
pa 
a 


+ 


BE 
R ` 
š 


3 


CICIEICIACICADS 


`“ 


ze 


, (-} Mi. 


EEE 


SCREEN $ 39 

BUILDING TVEC DEFS ) 

QQ C, (9) 
Vári 
te) 
{ A) 
{ 4) 
(5) 


Sd 


G 


~t 


Ë 


Si 

& 

KEE MA MT E 10 C 
F 


ASS 


M zf dë AQ AR < si zë 
Si éi ` ai ai .-. 


zf E n sc ai 
æ ei 
ZS 


Ka 
Le 


` 


RARA 
c? ca ca Ca c r> co Ca ra ra ca ra F 


R ES wR we 
wo} 


<= 


IOI CNC ICICI C C3 CIO I C32 C2 


`a 


SERES 
z 


BTSs 
KN 





4/26/1387 33 — 40 TU. SER 


SCREEN + 34 


( UPDLOC UPDCOL ` TRIGCLR ) 
: UPDLOC ( WORM ) 
DUP . XPOS OVER ,YPDS #H # + 
WDATA + 'LOC ; 
CODE 40€ BOT LDA, CLC, .A ROR, .A ROR, .A ROR, 
BOT STA, CLC, NEXT JMP, END-CODE 
: UPDCOL € WORM } 
DUP E. VALI WH 40% + "VAL 3 
: INITAUTO ( WORM ) 
40 0 DD 
DUP I DOAI# "MOVE LOOP 
DUP 3E Ø ‘MOVE ( FORCED ) 
DUS 3D 1 'MOVE DUP 3B 2 ‘MOVE DUP 37 3 !MOVE 
DUP 2F 4 (MOVE DUP 3F DIE# 'WDVE 
iF 5 ‘MOVE: 3S 


SCREEN # 36 


C64SCR 14 28 + + (-) SCRMEM 
;5 ( DLH SAVELIST BUILDER ) HEX 
230 CONSTANT DLH 
D424 CONSTANT HSCROL 
DLH @ CONSTANT SAVDLH 
: RESTORE SAVDLH DLH ! 
22 DMACTL C! @ GRACTL C! 
EQ 2F4 C! 28 COLPFO C! Ø COLPFI C! 
C COLPF2 C! 46 COLPF3 C! 
V 5 @ DO ( CLEAR PM REGISTRS ) 
V Ø DOOD I + É! LOOP : 


$ 


sS 


SCREEN # 38 
Lt SETHSCRL CHARACTER SET DEF. ) 
I E, eC 40, BC, 100, 200, 


MASK 


1 HEX #DV 2+ CDL WDL 

( ;: SETHSERE 

( DUP 2-8 1 DO 

( DUP I 3 # + í - DUP C@ !Ø OR 

{ SWAP C! 2 «LOOP DROP 

( Ë HSCROL C! ; 

{ WDL SETHSCRL” ) 

2F4 LA CHBAS D409 (-) CHBASE 

WCHSET 100 / FF AND (-) WCHSETH 
WEHSETH VAR CHNOW C VAR SCRLVAL 


— s age s eget 


SCREEN $ 48 


( CHSET BUILDING ) 
: DALLY FF @ DO I DROP LOOP ; 
3787 VARIABLE SEED 
V : RAND SEED @ FB * 3D + DUP SEED ! An MSB ; 
: RAND DOLZ Ce SEED +! SEED Cü ; 
;5 ; ORCHARVEC ( CHARADDR VECADR ) 
8 Q DO 2DUP I + Cü 
OVER I + CO DR SWAP 
I + C! LODP DROP DROP ; 
: ORCHAR ( CHB CINDY -) CHB) 
6 Ø DO 2DUP TMASK I + Cê 
AND IF 


OVER 8 # + 

TVEC 1 8 * + ORCHARVEC 
ELSE DROP ENDIF LOOP 
DROP ; 

















£8 18. SER 


SCREEN $ 42 


CX =) E LLIPS) 


#DH + ENDIF ENDIF ; 
( Y =) Y CLIPS ) 


DUP #DV-1 VØ 


10. SCR Dated 4/26/1987 Printed 4/26/1387 
SCREEN # 41 
( CHSET BUILD WDISPLAY ) ( DX) [Y] SCALE ) 
: HI NSB ; : LO LSB ; s [X] 
: CLEARF WDATA #H #V * Q FILL DUP #DH-1 HØ + } IF #DH - ELSE 
CLEARGAPF ; DUP HØ (I 
$ : BUTLDCHSET ( CHBASE ) DUP 200 Q FILL : EY] 
I ORCHAR LOOP DROP 8 WCHSET 3 +C! ; DUP VQ (I 
: INDISPLAY ( 2A ) 22 DMACTL C! ENDIF ; 
(02 ) @@ GRACTL C! WDL DLH | HERE ( É D F 
CO WIEN E! \ GPR Ce BPRIOR Ci ( NEED 18 ONLY ) 
\ PMA HI PMBASE C! 892 , 
\ C @ DO 0 1 DO00 +C! LOOP ( PLAYER H POS ) 1125 
A 0 DO í PWDTH DØØB I + menmso, y 


Jsr chrout 


iny 
Cp #$ØF 
bre serdiol 
gsr unisr 
+ 

¿sr circhn 
ü 


cischn Ida Brachen? 
sr close 
da #dtchrl 

sr close 

+ 


rts 

menmsg byte 'N:TEST-DISK,ER: 
EEEREELELAERE SE EE EAR ELE RATE EELE SEES SESE RA EERE EEE ER 
+ 


endgame: 
„byte Y 


Perú 


combat between NATO and WARSAW PACT Nations in the North Atlantic 
theatre. The game is mostly concerned with navel and air movement although 
rules do cover troop movement and use. If you don't like a wargame with a 
"heavy" feel to it, forget NA 186, However, if you like Hardcore Wargaming, 
you'll love this one. The attention to detail is great, BTM. 


Hope this is of help, Will. Please feel free to drop me a note anytime and if I 
can be of help, I will! 


Stealth 

+ There is a reply: 
242430 

Read action: 


#: 242133 S3/War/Stratecy Games 
16-Apr-87 18:55:52 

So: #242065-#Macintosh games 

Fm: Lorini/Ass't SysOp 72466, 3413 

To: WILLIAM RABINOVICH 71106, 1433 (X) 


I haven't been able to find Autoduel for the Mac but it was a wonderful came on 
the Apple...i'd highly recommend it. 
-Lorini 


St There is a reply: 
24245) 
Read action: 


#: 242450 S3/War/Stratecy Games 
18-Apr-87 07:15:30 

Sb: #242096-Macintosh games 

Fm: WILLIAM RABINOVICH 71106, 1433 

To: Stealth/MOTM 73247, 3010 (X) 


Stealth, thanks for the reply. I've para many SSI games on my old Atari (800) 
but I've been a confirmed Mac enthusiast for two years now and Í was ere 
very tired of SSI ignoring a machine that I think is almost ideally suited to 
giier » Hopefully this practice is ending. 

-Wi 


Read action: 


, 133F AE 


#: 242451 S3/War/Strategy Games 
18-Apr-87 07:16:53 

Sb: #242135-Macintash games 

Fm: WILLIAM RABINOVICH 71106, 1433 

Tos Lorini/Ass't SysOp 72466, 3413 110 


Lorimi, I've seen Autoduel advertised for the Mac by mail order houses but I 
haven't EN them to see whether they have it in stock. 
-Wil 


Read action: 

#: 242485 50/General/Helz-?7lezzz = 

Z2RxFi_ "Dv" 80 

Lk re Byty cl o AA e spa y EA BI hit aama e ee A a Pe ee cd e ey | be BSE ee Fp s m 





